home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 January / 64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64 / quelltext 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  64 lines
  1. 100 :           sys 36864
  2. 110 :           .opt   oo
  3. 120 :           *=$0400
  4. 130 :;
  5. 140 :;*** auslesung der rem-zeilen ***
  6. 150 :;
  7. 160 :           lda #$ff
  8. 170 :           sta $5a
  9. 180 :           lda #$bf
  10. 190 :           sta $5b
  11. 200 :           lda $7a
  12. 210 :           sta $5f
  13. 220 :           lda $7b
  14. 230 :           sta $60
  15. 240 nextline    lda $5b
  16. 250 :           cmp #$c4
  17. 260 :           bcc read
  18. 262 :           jmp $c000
  19. 275 :;
  20. 280 read        lda #7
  21. 290 r0          adc $5f
  22. 310 :           sta $5f
  23. 320 :           bcc r1
  24. 330 :           inc $60
  25. 340 r1          ldy #8
  26. 350 :           lda ($5f),y
  27. 360 :           jsr decode
  28. 370 :           sta 2
  29. 400 :           dey
  30. 410 r2          lda ($5f),y
  31. 412 :           beq nextline
  32. 415 :           jsr decode
  33. 417 :           rol
  34. 420 :           lsr 2
  35. 430 :           ror
  36. 460 :           sta ($5a),y
  37. 470 :           dey
  38. 475 :           bne r2
  39. 480 :           clc
  40. 490 :           lda $5a
  41. 500 :           adc #7
  42. 510 :           sta $5a
  43. 515 :           lda #8
  44. 520 :           bcc r0
  45. 530 :           inc $5b
  46. 540 :           clc
  47. 560 :           bcc r0
  48. 600 :;
  49. 610 decode      cmp #160
  50. 620 :           bcc de1
  51. 625 :           sbc #64
  52. 630 :           rts
  53. 635 de1         cmp #96
  54. 640 :           bcc de2
  55. 645 :           sbc #32
  56. 650 :           rts
  57. 655 de2         cmp #64
  58. 660 :           bcc de3
  59. 665 :           sbc #64
  60. 670 de3         cmp #53
  61. 675 :           bne de4
  62. 680 :           lda #34
  63. 685 de4         rts
  64.